home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
tcp
/
ModServer.lha
/
ModInfo.amirx
< prev
next >
Wrap
Text File
|
1996-11-14
|
1KB
|
68 lines
/* Modinfo by Shades / fake a.k.a. Erik Lindberg 96-11-14 */
authorpath='AmiTCP:Clients/AmIRC/rexx/'
/* Don't change below unless you know what you're doing */
options results
if show('P','HIPPOPLAYER') then do
address 'HIPPOPLAYER'
GET NAME
modname=result
GET SIZE
size=result%1024
address AMIRC.1 'say /me is playing 'd2c(2)modname d2c(2)'size: 'size'K'
end
if show('P','DELITRACKER') then do
address 'DELITRACKER'
status m nam
modname=result
status m dir
creator=result
creator=delstr(creator,length(creator))
creator=substr(creator,max(lastpos(':', creator),lastpos('/', creator)) +1)
creator=seekcreator(creator)
if creator=='' then
address AMIRC.1 'say /me is playing 'd2c(2)modname d2c(2)
else
address AMIRC.1 'say /me is playing 'd2c(2)modname d2c(2)' by: 'creator
end
seekcreator:
parse arg creator
if open('Authors',authorpath'Authornames.txt','R') then do
seek=0
DO UNTIL seek==1 | EOF('Authors')
string=READLN('Authors')
if find(string,creator) then do
creator=subword(string, 3)
seek=1
end
end
close('Authors')
end
if seek==0 then do
if open('Groups',authorpath'Groupnames.txt','R') then do
seek=0
DO UNTIL seek==1 | EOF('Groups')
string=READLN('Groups')
if find(string,creator) then do
creator=subword(string, 3)
creator=INSERT('someone in ',creator,0)
seek=1
end
end
close('Groups')
end
end
if seek==0 then creator=''
return creator